3.420 \(\int \frac{1}{\sqrt{x (-b x+a x^{-1+n})}} \, dx\)

Optimal. Leaf size=38 \[ \frac{2 \tan ^{-1}\left (\frac{\sqrt{b} x}{\sqrt{a x^n-b x^2}}\right )}{\sqrt{b} (2-n)} \]

[Out]

(2*ArcTan[(Sqrt[b]*x)/Sqrt[-(b*x^2) + a*x^n]])/(Sqrt[b]*(2 - n))

________________________________________________________________________________________

Rubi [A]  time = 0.0188031, antiderivative size = 38, normalized size of antiderivative = 1., number of steps used = 3, number of rules used = 3, integrand size = 18, \(\frac{\text{number of rules}}{\text{integrand size}}\) = 0.167, Rules used = {1979, 2008, 203} \[ \frac{2 \tan ^{-1}\left (\frac{\sqrt{b} x}{\sqrt{a x^n-b x^2}}\right )}{\sqrt{b} (2-n)} \]

Antiderivative was successfully verified.

[In]

Int[1/Sqrt[x*(-(b*x) + a*x^(-1 + n))],x]

[Out]

(2*ArcTan[(Sqrt[b]*x)/Sqrt[-(b*x^2) + a*x^n]])/(Sqrt[b]*(2 - n))

Rule 1979

Int[(u_)^(p_), x_Symbol] :> Int[ExpandToSum[u, x]^p, x] /; FreeQ[p, x] && GeneralizedBinomialQ[u, x] &&  !Gene
ralizedBinomialMatchQ[u, x]

Rule 2008

Int[1/Sqrt[(a_.)*(x_)^2 + (b_.)*(x_)^(n_.)], x_Symbol] :> Dist[2/(2 - n), Subst[Int[1/(1 - a*x^2), x], x, x/Sq
rt[a*x^2 + b*x^n]], x] /; FreeQ[{a, b, n}, x] && NeQ[n, 2]

Rule 203

Int[((a_) + (b_.)*(x_)^2)^(-1), x_Symbol] :> Simp[(1*ArcTan[(Rt[b, 2]*x)/Rt[a, 2]])/(Rt[a, 2]*Rt[b, 2]), x] /;
FreeQ[{a, b}, x] && PosQ[a/b] && (GtQ[a, 0] || GtQ[b, 0])

Rubi steps

\begin{align*} \int \frac{1}{\sqrt{x \left (-b x+a x^{-1+n}\right )}} \, dx &=\int \frac{1}{\sqrt{-b x^2+a x^n}} \, dx\\ &=\frac{2 \operatorname{Subst}\left (\int \frac{1}{1+b x^2} \, dx,x,\frac{x}{\sqrt{-b x^2+a x^n}}\right )}{2-n}\\ &=\frac{2 \tan ^{-1}\left (\frac{\sqrt{b} x}{\sqrt{-b x^2+a x^n}}\right )}{\sqrt{b} (2-n)}\\ \end{align*}

Mathematica [B]  time = 0.0233586, size = 80, normalized size = 2.11 \[ -\frac{2 \sqrt{a} x^{n/2} \sqrt{1-\frac{b x^{2-n}}{a}} \sin ^{-1}\left (\frac{\sqrt{b} x^{1-\frac{n}{2}}}{\sqrt{a}}\right )}{\sqrt{b} (n-2) \sqrt{a x^n-b x^2}} \]

Antiderivative was successfully verified.

[In]

Integrate[1/Sqrt[x*(-(b*x) + a*x^(-1 + n))],x]

[Out]

(-2*Sqrt[a]*x^(n/2)*Sqrt[1 - (b*x^(2 - n))/a]*ArcSin[(Sqrt[b]*x^(1 - n/2))/Sqrt[a]])/(Sqrt[b]*(-2 + n)*Sqrt[-(
b*x^2) + a*x^n])

________________________________________________________________________________________

Maple [F]  time = 0.345, size = 0, normalized size = 0. \begin{align*} \int{\frac{1}{\sqrt{x \left ( -bx+a{x}^{-1+n} \right ) }}}\, dx \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(1/(x*(-b*x+a*x^(-1+n)))^(1/2),x)

[Out]

int(1/(x*(-b*x+a*x^(-1+n)))^(1/2),x)

________________________________________________________________________________________

Maxima [F]  time = 0., size = 0, normalized size = 0. \begin{align*} \int \frac{1}{\sqrt{{\left (a x^{n - 1} - b x\right )} x}}\,{d x} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(1/(x*(-b*x+a*x^(-1+n)))^(1/2),x, algorithm="maxima")

[Out]

integrate(1/sqrt((a*x^(n - 1) - b*x)*x), x)

________________________________________________________________________________________

Fricas [F(-2)]  time = 0., size = 0, normalized size = 0. \begin{align*} \text{Exception raised: UnboundLocalError} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(1/(x*(-b*x+a*x^(-1+n)))^(1/2),x, algorithm="fricas")

[Out]

Exception raised: UnboundLocalError

________________________________________________________________________________________

Sympy [F(-1)]  time = 0., size = 0, normalized size = 0. \begin{align*} \text{Timed out} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(1/(x*(-b*x+a*x**(-1+n)))**(1/2),x)

[Out]

Timed out

________________________________________________________________________________________

Giac [F]  time = 0., size = 0, normalized size = 0. \begin{align*} \int \frac{1}{\sqrt{{\left (a x^{n - 1} - b x\right )} x}}\,{d x} \end{align*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(1/(x*(-b*x+a*x^(-1+n)))^(1/2),x, algorithm="giac")

[Out]

integrate(1/sqrt((a*x^(n - 1) - b*x)*x), x)